  <DIV id=box 
  style="HEIGHT: 300px; LEFT: -1800px; POSITION: absolute; TOP: 0px; WIDTH: 400px; Z-INDEX: 1"><IMG id=pic1 
  src="Caminho da figura desejada" 
  style="HEIGHT: 100%; LEFT: 0px; POSITION: absolute; TOP: 0px; VISIBILITY: visible; WIDTH: 100%; Z-INDEX: -1"><IMG id=pic2 
  src="Caminho da figura desejada" 
  style="HEIGHT: 100%; LEFT: 0px; POSITION: absolute; TOP: 0px; VISIBILITY: hidden; WIDTH: 100%; Z-INDEX: -2"> 
  </DIV></BLOCKQUOTE>
<SCRIPT language=VBScript>
Dim w, wW, wH, myTimer, picRatio, numPics, count
Set w=document.body
numPics=2
sub setUp()
 wW=w.clientWidth
 wH=w.offsetHeight
 wW=w.clientWidth
 wH=w.offsetHeight
 box.style.filter="BlendTrans(Duration=18)"
 box.style.width=wW
 box.style.height=wW*picRatio
 myTimer=SetTimeOut("doTrans",200)
end sub
sub doTrans()
 box.filters(0).Apply()
 document.all("pic"&count).style.visibility="hidden"
 count=count+1
 if count>numPics then count=1
 document.all("pic"&count).style.visibility="visible"
 box.filters(0).Play()
end sub
sub box_onfilterChange()
 myTimer=SetTimeOut("doTrans",4000)
end sub
sub document_onmouseOver()
 w.style.cursor="hand"
 box.style.zindex=-1
end sub
sub document_onMouseOut()
 w.style.cursor="default"
 box.style.zindex=1
end sub
sub Window_OnLoad()
 wx=window.screen.width
 Res=INT(wx/128)
 w.style.fontSize = 14+Res
 picRatio=box.style.posheight/box.style.posWidth
 box.style.left=0
 count=1
 setUp
end sub
sub Window_OnResize()
 setUp
end sub
</SCRIPT> 